home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / MMFltReg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-07-31  |  3.2 KB  |  79 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 29.01.98 - 22:06:11 $                                        =}
  24. {========================================================================}
  25. unit MMFltReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. Interface
  30.  
  31. Procedure Register;
  32.  
  33. Implementation
  34.  
  35. uses
  36.     Controls,
  37.     Classes,
  38.     DsgnIntf,
  39.     SysUtils,
  40.     MMDesign,
  41.     MMSpectr,
  42.     MMPeak,
  43.     MMFIR,
  44.     MMFIRDlg,
  45.     MMEQ,
  46.     MMEQDlg,
  47.     MMFltPrp;
  48.  
  49. {=========================================================================}
  50. procedure Register;
  51. begin
  52.    RegisterComponents('MMDSP',[TMMPeakDetect,
  53.                                TMMFIRFilterDialog,
  54.                                TMMFIRFilter,
  55.                                TMMFIRResponse,
  56.                                TMMEqualizerDialog,
  57.                                TMMEqualizer]);
  58.  
  59.    { C++Builder 1.0 makes problems here !? }
  60.  
  61.    {$IFNDEF CBUILDER}
  62.    RegisterPropertyEditor(TypeInfo(TMMEQFilterList), TMMEqualizer, 'Filters', TMMEQFilterProperty);
  63.    {$ENDIF}
  64.    RegisterComponentEditor(TMMEqualizer, TMMEQEditor);
  65.  
  66.    {$IFNDEF CBUILDER}
  67.    RegisterPropertyEditor(TypeInfo(TMMFIRFilterList), TMMFIRFilter, 'Filters', TMMFIRFilterProperty);
  68.    {$ENDIF}
  69.    RegisterComponentEditor(TMMFIRFilter, TMMFIREditor);
  70. end;
  71.  
  72. {=========================================================================}
  73. initialization
  74.   RegisterProperty(ptOutput,'DSP',TMMEqualizer,'Spectrum',TMMSpectrum,nil);
  75.  
  76.   RegisterProperty(ptOutput,'DSP',TMMFIRFilter,'Spectrum',TMMSpectrum,nil);
  77.   RegisterProperty(ptOutput,'DSP',TMMFIRFilter,'Response',TMMFIRResponse,nil);
  78. end.
  79.